home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / DL4FBI / BEACON.PLT < prev    next >
Encoding:
Text File  |  1997-03-12  |  1.4 KB  |  59 lines
  1. 'Ausdruck der Signaldaten
  2. ' S1 =3, S3 =6, S5 =9, S7 =12, S9 =15, +20dB =20, +40dB =25
  3. '+60dB= 30
  4. OPTION BASE 1
  5. DIM pri(5, 18) AS STRING
  6. DIM signa(5, 18) AS INTEGER
  7. DIM m(18) AS STRING
  8. DIM t(5, 18) AS STRING
  9. r$ = CHR$(179)
  10. Raster$ = r$ + "  " + r$ + "  " + r$ + "  " + r$ + "  " + r$ + "  " + r$ + "    "
  11. Raster1$ = r$ + "    " + r$ + "    " + r$
  12. Raster$ = Raster$ + Raster1$
  13. SKALA$ = "           S1 S3 S5 S7 S9  +20dB+40dB+60dB"
  14. CLS
  15. OPEN "A:\BEACON.TXT" FOR INPUT AS #1
  16. FOR i = 1 TO 5: FOR j = 1 TO 18
  17. INPUT #1, pri(i, j)
  18. NEXT j: NEXT i
  19. CLOSE 1
  20. FOR i = 1 TO 5: FOR j = 1 TO 18
  21. IF i = 1 THEN
  22. m(j) = RTRIM$(LTRIM$(LEFT$(pri(i, j), 7)))
  23. IF LEN(m(j)) < 5 THEN m(j) = m(j) + STRING$(5 - LEN(m(j)), " ")
  24. END IF
  25. signa(i, j) = VAL(MID$(pri(i, j), 59, 2))
  26. NEXT j: NEXT i
  27.  
  28. FOR j = 1 TO 18
  29. FOR i = 1 TO 5
  30.  
  31. x% = signa(i, j)
  32. h$ = RIGHT$(Raster$, (31 - x% - 1))
  33. p$ = STRING$(x% + 1, CHR$(197)) + h$
  34.  
  35. SELECT CASE i
  36.   CASE 1
  37.   IF j = 10 THEN LPRINT ; CHR$(12)
  38.   IF j = 1 OR j = 10 THEN LPRINT ; SKALA$
  39.   LPRINT ; "        " + Raster$
  40.   LPRINT ; "      14" + p$
  41.   CASE 2
  42.   LPRINT ; "      18" + p$
  43.   CASE 3
  44.   LPRINT ; m(j) + " " + "21" + p$
  45.   CASE 4
  46.   LPRINT ; "      24" + p$
  47.   CASE 5
  48.   LPRINT ; "      28" + p$
  49. END SELECT
  50.  
  51. NEXT i
  52. NEXT j
  53. LPRINT : LPRINT
  54. LPRINT ; "aufgenommen am:"; DATE$
  55. LPRINT ; CHR$(12)
  56.  
  57. 'Author: Helmut Zürneck, DL4FBI, Ritterstrasse 26, 64807 Dieburg, Germany
  58.  
  59.